home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / TUTOR151.ZIP / LOGIN.MOD (.txt) < prev    next >
PCBoard Programming Language Executable  |  1995-06-09  |  9KB  |  246 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.  
  27. ;------------------------------------------------------------------------------
  28.  
  29.     STRING001 = ReadLine(PCBDat(), 94)
  30.     STRING007 = Len(STRING001) / 2
  31.     STRING002 = String(Asc(Mid(STRING001, STRING007, 3))) + String(Asc(Right(STRING001, 3))) + String(Asc(Mid(STRING001, 1, 3)))
  32.     FOpen 1, PPEPath() + "TUTOR.CFG", 0, 0
  33.     FGet 1, STRING003
  34.     FGet 1, STRING004
  35.     FGet 1, STRING006
  36.     FGet 1, STRING005
  37.     FCloseAll
  38.     PrintLn "@CLS@@POFF@@X08███████████████████████████████████████████████████████████████████████████████" + " ███████████████████████████████████████████████████████████████████████████████"
  39.     PrintLn "███████████████████████████████████████████████████████████████████████████████"
  40.     PrintLn "████████████████████@X60┌──────────────────────────────────────@X6E┐@X08███████████████████"
  41.     PrintLn "████████████████████@X60│ @X6F╦   ╔══╗╔══╗╔══╗╦╔══╗╔══╗   ╔══╗╔══╗ @X6E│@X08 ██████████████████"
  42.     PrintLn "@X08████████████████████@X60│ @X6F║   ║  ║║ ═╗║ ═╗║║  ║║ ═╗   ║  ║║  ║ @X6E│@X08 ██████████████████"
  43.     PrintLn "@X08████████████████████@X60│ @X67╚══╝╚══╝╚══╝╚══╝╩╩  ╩╚══╝   ╚══╝╩  ╩ @X6E│@X08 ██████████████████"
  44.     PrintLn "@X08████████████████████@X60│@X6B                 The                  @X6E│@X08 ██████████████████"
  45.     PrintLn "@X08████████████████████@X60│@X6B@BOARDNAME:37C@ @X6E│@X08 ██████████████████"
  46.     PrintLn "@X08████████████████████@X60└@X6E──────────────────────────────────────┘@X08 ██████████████████"
  47.     PrintLn "██████████████████████▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄██████████████████"
  48.     PrintLn "███████████████████████████████████████████████████████████████████████████████"
  49.     PrintLn "███████████████████████████████████████████████████████████████████████████████"
  50.     PrintLn "███████████████████████████████████████████████████████████████████████████████"
  51.     PrintLn "███████████████████████████████████████████████████████████████████████████████"
  52.     PrintLn "███████████████████████████████████████████████████████████████████████████████"
  53.     PrintLn "█████████████████████████████████████████████████████████████████████@X08██████████"
  54.     PrintLn "█████████████████████████████████████████████████████████████████████@X08██████████"
  55.     PrintLn "@X1F  This area of the system will help familiarize you with logging onto this     @X0F"
  56.     PrintLn "@X1F  system.                                                                      @X08"
  57.     PrintLn "@X1E                                                                          v1.1 @X0F"
  58.     PrintLn "@WAIT@"
  59.     Select Case (STRING004)
  60.         Case "NO"
  61.             Goto LABEL002
  62.         Case "YES"
  63.     End Select
  64.     :LABEL001
  65.     PrintLn "@CLS@"
  66.     DispFile PPEPath() + STRING006, 2 + 1 + 4
  67.     AnsiPos 2, 17
  68.     PrintLn "@X20╔════════════════════════════════════════════════════════════════════════════@X2A╗@X07"
  69.     AnsiPos 2, 18
  70.     PrintLn "@X20║ @X2FThis system uses a FRONTDOOR/QFRONT mailer.  So, the very first screen you @X2A║@X07"
  71.     AnsiPos 2, 19
  72.     PrintLn "@X20║ @X2Fwill see, will ask that you press the ESC or TAB keys twice to connect.    @X2A║@X07"
  73.     AnsiPos 2, 20
  74.     PrintLn "@X20║ @X2FFollowed immediatly by this screen.                                        @X2A║@X07"
  75.     AnsiPos 2, 21
  76.     PrintLn "@X20╚@X2A════════════════════════════════════════════════════════════════════════════╝@X07"
  77.     PrintLn "@WAIT@"
  78.     :LABEL002
  79.     PrintLn "@CLS@@X07CONNECT 14400/ARQ/V32/LAPM/V42BIS             @X0E<── @X0DWhat you connected at."
  80.     PrintLn "@X07CONNECT 19200 / @SYSDATE@ (@SYSTIME@:02)           @X0E<── @X0DThe systems connect rate."
  81.     PrintLn "@X07[Error Correcting Modem Detected]             @X0E<── @X0DIf error correction is"
  82.     PrintLn "                                                  detected."
  83.     PrintLn "@X07@BOARDNAME:45@ @X0E<── @X0DThe system you connected to."
  84.     PrintLn "@X07PCBoard (R) v15.2/M 10 - Node 1 - PFE01234    @X0E<── @X0DSoftware version, and node."
  85.     PrintLn "                                             @X07"
  86.     PrintLn "Operational Languages Available:              @X0E<── @X0DLanguages Available:"
  87.     PrintLn "                                                  @X0BEnter the number of the"
  88.     PrintLn "@X071 - English                                       @X0Blanguage or press ENTER"
  89.     PrintLn "@X072 - Automated Script Use                          @X0Bfor the default (English)"
  90.     PrintLn "@X07"
  91.     PrintLn "@X07Enter Language # to use (Enter)=no change?"
  92.     PrintLn 
  93.     PrintLn ""
  94.     PrintLn ""
  95.     PrintLn " @X20╔════════════════════════════════════════════════════════════════════════════@X2A╗@X07"
  96.     PrintLn " @X20║ @X2FOnce connected, you will see the above screen.  Each line is explained as  @X2A║@X0F"
  97.     PrintLn " @X20║ @X2Fto what it means to you. The only input required on your part is selecting @X2A║@X0F"
  98.     PrintLn " @X20║ @X2Fwhat language you would like to use.                                       @X2A║@X0F"
  99.     PrintLn " @X20╚@X2A════════════════════════════════════════════════════════════════════════════╝@X0F"
  100.     PrintLn "@WAIT@"
  101.     AnsiPos 1, 15
  102.     PrintLn "@X07Do you want graphics (Enter)=yes? y           @X0E<── @X0DColor Menus?"
  103.     AnsiPos 2, 16
  104.     PrintLn ""
  105.     AnsiPos 2, 17
  106.     PrintLn "@X20╔════════════════════════════════════════════════════════════════════════════@X2A╗@X07"
  107.     AnsiPos 2, 18
  108.     PrintLn "@X20║ @X2FAfter completing the language selection you will be asked whether or not   @X2A║@X0F"
  109.     AnsiPos 2, 19
  110.     PrintLn "@X20║ @X2Fyou want graphics....Simply put, it is asking you if you want to view the  @X2A║@X0F"
  111.     AnsiPos 2, 20
  112.     PrintLn "@X20║ @X2Fsystem in color or black and white.                                        @X2A║@X0F"
  113.     AnsiPos 2, 21
  114.     PrintLn "@X20╚@X2A════════════════════════════════════════════════════════════════════════════╝@X0F"
  115.     PrintLn "@WAIT@"
  116.     PrintLn "@CLS@"
  117.     DispFile STRING005, 2 + 1 + 4
  118.     AnsiPos 2, 17
  119.     PrintLn "@X20╔════════════════════════════════════════════════════════════════════════════@X2A╗@X07"
  120.     AnsiPos 2, 18
  121.     PrintLn "@X20║ @X2FWelcome to @X2E@BOARDNAME:48@                @X2A║@X07"
  122.     AnsiPos 2, 19
  123.     PrintLn "@X20║ @X2FThe system will now ask for your login information.....First and Last name @X2A║@X07"
  124.     AnsiPos 2, 20
  125.     PrintLn "@X20║ @X2Ffollowed by your password.                                                 @X2A║@X07"
  126.     AnsiPos 2, 21
  127.     PrintLn "@X20╚@X2A════════════════════════════════════════════════════════════════════════════╝@X07"
  128.     PrintLn "@WAIT@"
  129.     AnsiPos 2, 17
  130.     PrintLn "@X20╔════════════════════════════════════════════════════════════════════════════@X2A╗@X07"
  131.     AnsiPos 2, 18
  132.     PrintLn "@X20║ @X2FThere is an easy way to login to the system by entering your name and      @X2A║@X07"
  133.     AnsiPos 2, 19
  134.     PrintLn "@X20║ @X2Fpassword all on one line. When prompted for your first name enter the      @X2A║@X07"
  135.     AnsiPos 2, 20
  136.     PrintLn "@X20║ @X2Ffollowing (first name/last name & password). @X2EEXAMPLE: @X2BJohn Doe Password    @X2A║@X07"
  137.     AnsiPos 2, 21
  138.     PrintLn "@X20╚@X2A════════════════════════════════════════════════════════════════════════════╝@X07"
  139.     PrintLn "@WAIT@"
  140.     PrintLn "@CLS@@X01            ┌──────────────────┐                       @X0C        System News@X01"
  141.     PrintLn "  ──────────┤@X0E Tutorial Online! @X01├───────────────────────────────────────────"
  142.     PrintLn "            └──────────────────┘                           @X0B     @SYSDATE@"
  143.     PrintLn ""
  144.     PrintLn "@X07  Now online the @BOARDNAME@, the PCB Tutorial!"
  145.     PrintLn "  Brought to you by the SysOp of this system and Equinox Software.       "
  146.     PrintLn "@X01  ────────────────────────────────────────────────────────────────────────────"
  147.     AnsiPos 2, 17
  148.     PrintLn "@X20╔════════════════════════════════════════════════════════════════════════════@X2A╗@X07"
  149.     AnsiPos 2, 18
  150.     PrintLn "@X20║ @X2FAt this point, the SysOp has the opportunity to show you any important     @X2A║@X07"
  151.     AnsiPos 2, 19
  152.     PrintLn "@X20║ @X2Finformation including any happenings on the system which usually appear in @X2A║@X07"
  153.     AnsiPos 2, 20
  154.     PrintLn "@X20║ @X2Fthe systems NEWS text.                                                     @X2A║@X07"
  155.     AnsiPos 2, 21
  156.     PrintLn "@X20╚@X2A════════════════════════════════════════════════════════════════════════════╝@X07"
  157.     PrintLn "@WAIT@"
  158.     AnsiPos 1, 9
  159.     PrintLn "@X0CMain Board Bulletins have been updated since last time on, @FIRST@"
  160.     AnsiPos 1, 10
  161.     PrintLn "New Bulletin(s):4"
  162.     AnsiPos 2, 17
  163.     PrintLn "@X20╔════════════════════════════════════════════════════════════════════════════@X2A╗@X07"
  164.     AnsiPos 2, 18
  165.     PrintLn "@X20║ @X2FThe system now scans to see if any of the bulletins have been updated since@X2A║@X07"
  166.     AnsiPos 2, 19
  167.     PrintLn "@X20║ @X2Fyou last logged in. If any bulletins were updated, it would then show you  @X2A║@X07"
  168.     AnsiPos 2, 20
  169.     PrintLn "@X20║ @X2Fwhich ones.                                                                @X2A║@X07"
  170.     AnsiPos 2, 21
  171.     PrintLn "@X20╚@X2A════════════════════════════════════════════════════════════════════════════╝@X07"
  172.     PrintLn "@WAIT@"
  173.     AnsiPos 1, 12
  174.     PrintLn "@X0AScanning for new mail...Your mail is waiting in the following conference(s):"
  175.     AnsiPos 1, 13
  176.     PrintLn "@X07DESQVIEW-RI (290) Conference ..."
  177.     AnsiPos 1, 15
  178.     PrintLn "@X0FRead your personal mail now: [Y]es, [N]o, [A]ll new mail? (N)"
  179.     AnsiPos 2, 17
  180.     PrintLn "@X20╔════════════════════════════════════════════════════════════════════════════@X2A╗@X07"
  181.     AnsiPos 2, 18
  182.     PrintLn "@X20║ @X2FAnd finally, if you have any new mail the system will tell you where it is @X2A║@X07"
  183.     AnsiPos 2, 19
  184.     PrintLn "@X20║ @X2Flocated and if you would like to read it now.                              @X2A║@X07"
  185.     AnsiPos 2, 20
  186.     PrintLn "@X20║ @X2F                                                                     @X2AEND @X2A║@X07"
  187.     AnsiPos 2, 21
  188.     PrintLn "@X20╚@X2A════════════════════════════════════════════════════════════════════════════╝@X07"
  189.     PrintLn "@WAIT@"
  190.  
  191. ;------------------------------------------------------------------------------
  192. ;
  193. ; Usage report (before postprocessing)
  194. ;
  195. ; ■ Statements used :
  196. ;
  197. ;    5       Goto 
  198. ;    3       Let 
  199. ;    101     PrintLn 
  200. ;    2       If 
  201. ;    2       DispFile 
  202. ;    1       FOpen 
  203. ;    4       FGet 
  204. ;    42      AnsiPos 
  205. ;    1       FCloseAll
  206. ;
  207. ;
  208. ; ■ Functions used :
  209. ;
  210. ;    1       /
  211. ;    9       +
  212. ;    2       ==
  213. ;    2       !
  214. ;    1       Len(
  215. ;    2       Mid()
  216. ;    1       Right()
  217. ;    3       Asc()
  218. ;    3       String()
  219. ;    1       PCBDat()
  220. ;    2       PPEPath()
  221. ;    1       ReadLine()
  222. ;
  223. ;------------------------------------------------------------------------------
  224. ;
  225. ; Analysis flags : d
  226. ;
  227. ; d - Access PCBOARD.DAT ■ 2
  228. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  229. ;     for many PPE so they can find various informations on the system
  230. ;     (system paths, max number of lines in messages, ...) but it may also
  231. ;     be a way to gather vital informations.
  232. ;     ■ Search for : PCBDAT()
  233. ;
  234. ;------------------------------------------------------------------------------
  235. ;
  236. ; Postprocessing report
  237. ;
  238. ;    0       For/Next
  239. ;    0       While/EndWhile
  240. ;    0       If/Then or If/Then/Else
  241. ;    1       Select Case
  242. ;
  243. ;------------------------------------------------------------------------------
  244. ;                 AEGiS Corp - Break the routines, code against the machines!
  245. ;------------------------------------------------------------------------------
  246.